home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 16 / blkmagut.zip / FIXTABS.BAS < prev    next >
BASIC Source File  |  1988-06-10  |  367b  |  12 lines

  1. 110 PRINT "RemoveTab"
  2. 120 INPUT "enter name of input file - ";F1$
  3. 130 INPUT "enter name of output file - ";F2$
  4. 140 OPEN F1$ FOR INPUT AS #1 LEN=512
  5. 150 OPEN F2$ FOR OUTPUT AS #2 LEN=512
  6. 160 IF EOF(1) THEN END
  7. 170 N=(ASC(INPUT$(1,#1)) AND 127)
  8. 180 IF N=9 THEN N = 32          ' Replace Tabs with Spaces
  9. 190 PRINT #2,CHR$(N);
  10. 200 PRINT CHR$(N);
  11. 210 GOTO 160
  12.